﻿Imports System.ComponentModel

Public Class Person
    Inherits SystemClass

    Private WithEvents oSMSMessages As New SMSMessages
    Private strPhone As String

    Public Property HasUnReadMessages As Boolean

    Public Property Telephone As String
        Get
            Return strPhone
        End Get
        Set(value As String)
            strPhone = value
            MyBase.OnPropertyChanged(Me, New PropertyChangedEventArgs("Telephone"))
        End Set
    End Property

    Public Property SMSMessages As SMSMessages
        Get
            Return oSMSMessages
        End Get
        Set(value As SMSMessages)
            oSMSMessages = value
            MyBase.OnPropertyChanged(Me, New PropertyChangedEventArgs("SMSMessages"))
        End Set
    End Property

    Private Sub oSMSMessages_ListChanged(sender As Object, e As System.ComponentModel.ListChangedEventArgs) Handles oSMSMessages.ListChanged



    End Sub

    Private Sub oSMSMessages_ReadMessagesChanged(HasUnread As Boolean) Handles oSMSMessages.ReadMessagesChanged

        HasUnReadMessages = HasUnread

    End Sub
End Class
